home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / programm / gemfsc20 / gemfsc20.lzh / GEMFUNCS / OBJDXFIN.C < prev    next >
C/C++ Source or Header  |  1993-02-01  |  622b  |  25 lines
  1. /**************************************************************************
  2.  * OBJDXFIND.C - Return index of default exit object; NO_OBJECT if none.
  3.  *************************************************************************/
  4.  
  5. #include "gemfintl.h"
  6.  
  7. /*-------------------------------------------------------------------------
  8.  *
  9.  *-----------------------------------------------------------------------*/
  10.  
  11. short obj_dxfind(ptree)
  12.     OBJECT *ptree;
  13. {
  14.     short    obj = 0;
  15.  
  16.     do    {
  17.         if (ptree[obj].ob_flags & DEFAULT) {
  18.             return obj;
  19.         }
  20.     } while (!(ptree[obj++].ob_flags & LASTOB));
  21.  
  22.     return NO_OBJECT;
  23. }
  24.  
  25.